home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 123 / 123.d81 / ts viewer (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  828b  |  24 lines
  1. 4 dv=peek(186):ifdv<8thendv=8
  2. 10 poke53281,0:poke53280,0:print"[147][129]          [212][200][197] [205][201][199][200][212][217] [204][207][193][196][211][212][193][210]"
  3. 12 print"          [212][201][212][204][197] [211][195][210][197][197][206] [214][201][197][215][197][210]"
  4. 13 sys57812"unpacker.89",dv,0:poke780,0:poke781,0:poke782,201:sys65493
  5. 14 sys57812"intro.shp",dv,0:poke780,0:poke781,0:poke782,30:sys65493
  6. 18 poke53280,0
  7. 20 print"[155]  [215]hile the title picture is showing
  8. 22 [153]"  press any key to return to (NULL)(NULL)atnstr$(NULL)(NULL)atn(NULL).
  9. 24 print"            [208]ress a key now.
  10. 28 [151]198,0
  11. 30 [161]a$:[139]a$[178]""[167]30
  12. 31 [151]251,30:[151]252,64:[151]253,96
  13. 32 [158]51456:[158]51459
  14. 38 [151]198,0
  15. 40 [161]a$:[139]a$[178]""[167]40
  16. 42 [158]51459:[153]"load":[151]53281,0
  17. 50 [137]40000
  18. 10000 [159]15,8,15,"s0:ts viewer":[160]15:[148]"ts viewer",8:[128]
  19. 40000 a$[178]"hello connect":[129]i[178]8[164]9:[160]2:[159]2,i,2:[160]2:[139]st[167]40020
  20. 40010 [160]15:[159]15,i,15,"r0:"[170]a$[170]"="[170]a$:[132]15,er:[160]15:[139]er[178]63[167]40030
  21. 40020 [130]:[153]"load":[151]2048,0:[151]44,8:[151]53272,23:[151]186,8:[128]
  22. 40030 [151]646,[194](53281):[153]"loadload"[199](34)a$[199](34)","i
  23. 40040 [153]"run":[151]44,8:[151]2048,0:[151]631,13:[151]632,13:[151]198,2:[128]
  24.